home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
4dostool
/
4dtnt.zip
/
MISC.ZIP
/
HMENU.BTM
< prev
next >
Wrap
Text File
|
1991-09-03
|
5KB
|
206 lines
cd d:\
cd c:\
set lastx=0
set lasty=0
:start
unset thingie tofile fromfile wtf
cls
drawbox 0 0 24 79 2 white on blue fill blue
scrput 2 8 white on blue --------- Function Keys ------ ------ Shift Function Keys ------
scrput 3 8 white on blue f1 Kings *f1 Gomoku
scrput 5 8 white on blue f2 Show document directory *f2 Communications
scrput 7 8 white on blue f3 Manual command *f3 First Publisher
scrput 9 8 white on blue f4 Edit a document *f4 Shooting gallery
scrput 11 8 white on blue f5 Mahjongg *f5 Breakout
scrput 13 8 white on blue f6 Solitare *f6 Reset Trackball
scrput 15 8 white on blue f7 Copy a file *f7 DB3+
scrput 17 8 white on blue f8 Envelope on Daisy Wheel *f8 Epson printer page eject
scrput 19 8 white on blue f9 Epson printer reset *f9 Super Fly
scrput 21 8 white on blue f10 DOS Environment *f10 Shut down system
iff "%lastx%" ne "0" then^scrput %lasty% %lastx% bright white on blue @^endiff
rem drawvline 0 39 25 1 white on blue
:timeloop
screen 0 0
scrput 1 30 white on blue %_date %_time
inkey /w1 %%WTF
if "%WTF%" == "" goto timeloop
rem
if %WTF% == @59 goto dof1
if %WTF% == @60 goto dof2
if %WTF% == @61 goto dof3
if %WTF% == @62 goto dof4
if %WTF% == @63 goto dof5
if %WTF% == @64 goto dof6
if %WTF% == @65 goto dof7
if %WTF% == @66 goto dof8
if %WTF% == @67 goto dof9
if %WTF% == @68 goto dof10
if %WTF% == @84 goto doshf1
if %WTF% == @85 goto doshf2
if %WTF% == @86 goto doshf3
if %WTF% == @87 goto doshf4
if %WTF% == @88 goto doshf5
if %WTF% == @89 goto doshf6
if %WTF% == @90 goto doshf7
if %WTF% == @91 goto doshf8
if %WTF% == @92 goto doshf9
if %WTF% == @93 goto doshf10
if %WTF% == @113 goto doshf10
rem
goto start
:dof1
set lastx=11
set lasty=3
c:\games\kings
goto start
:dof2
cls
dir /4apv c:\budnick\*.*
pause
set lastx=11
set lasty=5
goto start
:dof3
scrput 2 27 bright yel on blue "?" will abort the command
scrput 8 8 white on blue Command:
scrput 8 16 bright yellow on blue _____________________________________________________________
screen 8 16
input %%thingie
cls
if "%thingie%" == "?" goto start
set lastx=11
set lasty=7
%thingie%
pause
goto start
:dof4
scrput 2 27 bright yel on blue "?" will abort the command
scrput 10 8 white on blue Document name:
scrput 10 22 bright yellow on blue ____________
screen 10 22
input %%thingie
if "%thingie%" == "?" goto start
set lastx=11
set lasty=9
cls
rem call hdb %thingie%
ws c:\budnick\%thingie%
fr
goto start
:dof5
scrput 12 8 white on blue Board number:
scrput 12 21 bright yellow on blue ______
screen 12 21
input %%thingie
set lastx=11
set lasty=11
iff "%thingie%" == "" then^c:\games\mahjongg -y -f -m -n^
else^c:\games\mahjongg -y -f -m -n -b%thingie%^endiff
goto start
:dof6
keystack "NNS1Hanny" 13 "YYY" 0 0 "x"^c:\games\solitare
set lastx=11
set lasty=13
goto start
:dof7
scrput 2 27 bright yel on blue "?" will abort the command
scrput 16 8 white on blue Copy from:
scrput 16 18 bright yellow on blue ___________________________________________________
screen 16 18
input %%fromfile
if "%fromfile%" == "" goto dof7
if "%fromfile%" == "?" goto start
if not exist %fromfile% goto dof7
:doof7
scrput 16 8 white on blue Copy to:
scrput 16 16 bright yellow on blue ____________________________________________________
screen 16 16
input %%tofile
if "%tofile%" == "?" goto start
if "%tofile%" == "" goto doof7
set lastx=11
set lasty=15
cls
copy %fromfile% %tofile%
pause
goto start
:dof8
scrput 2 27 bright yel on blue "?" will abort the command
scrput 18 8 white on blue Document name:
scrput 18 22 bright yellow on blue ____________
screen 18 22
input %%thingie
if "%thingie%" == "" goto dof8
if "%thingie%" == "?" goto start
if not exist c:\budnick\%thingie% goto dof8
set lastx=11
set lasty=17
envelope c:\budnick\%thingie% /c > com2
goto start
:dof9
pinit
set lastx=11
set lasty=19
goto start
:dof10
unset wtf
cls
echo type HMENU at any DOS prompt to return to the main menu
quit
:doshf1
set lastx=45
set lasty=3
c:\games\gomoku
goto start
:doshf2
cls
call tc
set lastx=45
set lasty=5
goto start
:doshf3
e:
cd e:\pub
fp
cd e:\
c:
colset 17 50 5a 03
set lastx=45
set lasty=7
goto start
:doshf4
to c:\games^shoot^fr
set lastx=45
set lasty=9
goto start
:doshf5
c:\games\breakout S-6
set lastx=45
set lasty=11
goto start
:doshf6
trakball dos
set lastx=45
set lasty=13
goto start
:doshf7
trakball dbase^to db3^dbase^fr
set lastx=45
set lasty=15
goto start
:doshf8
pff
set lastx=45
set lasty=17
goto start
:doshf9
pushd c:\games
fly
popd
set lastx=45
set lasty=19
goto start
:doshf10
cls
sysdown
quit